Summary of Critical Copper, Gold, Molybdenum and Silver Deposits in Americas

Using data compiled by Geoscience Australia, the Geological Survey of Canada and the United States Geological Survey

Author

Yuri Gomes

Published

February 19, 2023

1 On Dataset

This report brings a summary of the South America & North America deposits of Copper (Cu), Gold (Au), Molybdenium (Mo), and Silver (Ag) contained in the Critical Minerals Mapping Initiative (CMMI) database CMMI is a collection of geochemical analysis of 7,000 samples from mineral deposits in 60 countries.

This report is for education and science communication only. You are free to share, copy and redistribute the material in any medium or format. You may not use the material for commercial purposes.

The full dataset as well as its information, authors and metadata can be accessed here.

Show the code

knitr::include_graphics("images/chuquicamata_cu_mine.jpg")

Fonte: Unplash.com

2 Data Import

Geoscience Australia, the Geological Survey of Canada, and the US Geological Survey compiled CMMI from publicly available sources, including mineral deposit, geochemistry, and the OSNACA databases.

── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
✔ ggplot2 3.4.0      ✔ purrr   1.0.0 
✔ tibble  3.1.8      ✔ dplyr   1.0.10
✔ tidyr   1.2.1      ✔ stringr 1.5.0 
✔ readr   2.1.3      ✔ forcats 0.5.2 
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
here() starts at C:/Users/Bruno Ferreira/Documents/Analise_em_R/relatorio_geoquimica

Rows: 9513 Columns: 340
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr  (135): FID, DEPOSIT_UID, DEPOSIT_NAME, DEPOSIT_LOCAL_ID, DEPOSIT_ENVIRO...
dbl  (198): TOP_DEPTH_M, BASE_DEPTH_M, SIO2_WT_PERCENT, SIO2_DETECTION_LIMIT...
lgl    (5): H2OTOTAL_WT_PERCENT, H2OTOTAL_DETECTION_LIMIT, H2OTOTAL_METHOD, ...
date   (2): ANALYSIS_DATETIME, LAST_UPDATE

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

The original dataset is divided into 340 columns showing Sample ID, Analytes, Limit of Detections, Countries, Coordinates, among other information, and 9513 rows.

3 Data Tidying and Data Filtering

For this analysis, we have four target elements: Copper (Cu), Gold (Au), Molybdenium (Mo), and Silver (Ag), exploring their distribution along the countries’ deposits.

So we need to filter the dataset prior to leave only the necessary information.

Show the code

copper <- tibble(cmmi_dataset$primary_commodities)

cmmi_americas <- cmmi_dataset |>
  dplyr::filter(country %in% c("MEX", "USA", "CAN", "BRA", "ARG", "CHL", "BOL", "PER", "URY", "ECU", "VEN", "COL")) |>
  dplyr::select(sample_name, primary_commodities, deposit_name, deposit_environment, country, 
                state, cu_ppm, cu_detection_limit, cu_method, 
                deposit_longitude_wgs84,deposit_latitude_wgs84)|>
  drop_na(cu_ppm)|>
  dplyr::filter(cu_ppm >= 50) |>
  mutate(country = countrycode(country, "iso3c", "country.name"))

4 Deposits’ Location

You may locate all the 713 deposits in the map below:

--- title: "Summary of Critical Copper, Gold, Molybdenum and Silver Deposits in Americas" subtitle: "Using data compiled by Geoscience Australia, the Geological Survey of Canada and the United States Geological Survey" author: "Yuri Gomes" date: "`r Sys.Date()`" toc: true number-sections: true format: html: theme: light: flatly dark: darkly code-tools: true self-contained: true code-fold: true code-summary: "Show the code" editor: visual --- ## On Dataset This report brings a summary of the South America & North America deposits of Copper (Cu), Gold (Au), Molybdenium (Mo), and Silver (Ag) contained in the Critical Minerals Mapping Initiative (CMMI) database CMMI is a collection of geochemical analysis of 7,000 samples from mineral deposits in 60 countries. This report is for education and science communication only. You are free to share, copy and redistribute the material in any medium or format. You may not use the material for commercial purposes. The full dataset as well as its information, authors and metadata can be accessed [here](https://ecat.ga.gov.au/geonetwork/srv/eng/catalog.search#/metadata/145496). ```{r images, fig.align= "left", fig.alt = "Chuquicamata Copper Mine, Chile, 2019"} knitr::include_graphics("images/chuquicamata_cu_mine.jpg") ``` ::: {style="text-align: right"} Fonte: <a href="https://unsplash.com/pt-br/fotografias/sRuz_SXLjCI">Unplash.com</a> ::: <div style="text-align: justify"> ## Data Import Geoscience Australia, the Geological Survey of Canada, and the US Geological Survey compiled CMMI from publicly available sources, including mineral deposit, geochemistry, and the OSNACA databases. ```{r echo = FALSE} library(tidyverse) library(ggplot2) library(leaflet) library(here) library(countrycode) ``` ```{r echo = FALSE} cmmi_dataset <- readr::read_csv( here::here("projeto_report_geoquimica/CriticalMineralDepositsGeochemistry.csv")) |> janitor::clean_names() ``` The original dataset is divided into `r ncol(cmmi_dataset)` columns showing Sample ID, Analytes, Limit of Detections, Countries, Coordinates, among other information, and `r nrow(cmmi_dataset)` rows. ## Data Tidying and Data Filtering For this analysis, we have four target elements: Copper (Cu), Gold (Au), Molybdenium (Mo), and Silver (Ag), exploring their distribution along the countries' deposits. So we need to filter the dataset prior to leave only the necessary information. ```{r} copper <- tibble(cmmi_dataset$primary_commodities) cmmi_americas <- cmmi_dataset |> dplyr::filter(country %in% c("MEX", "USA", "CAN", "BRA", "ARG", "CHL", "BOL", "PER", "URY", "ECU", "VEN", "COL")) |> dplyr::select(sample_name, primary_commodities, deposit_name, deposit_environment, country, state, cu_ppm, cu_detection_limit, cu_method, deposit_longitude_wgs84,deposit_latitude_wgs84)|> drop_na(cu_ppm)|> dplyr::filter(cu_ppm >= 50) |> mutate(country = countrycode(country, "iso3c", "country.name")) ``` ## Deposits' Location You may locate all the `r length(unique(cmmi_americas$deposit_name))` deposits in the map below: ``` {r echo = FALSE} ### Defining coordinates leaflet::leaflet(data = cmmi_americas) |> leaflet::addCircleMarkers(lng = ~deposit_longitude_wgs84, lat = ~deposit_latitude_wgs84, radius = 5, popup = paste("Name: ", cmmi_americas$deposit_name, " ", "Copper (ppm)", cmmi_americas$cu_ppm, " ", "Latitude: ", cmmi_americas$deposit_latitude_wgs84, " ", "Longitude: ", cmmi_americas$deposit_longitude_wgs84, " ", "Environment: ", cmmi_americas$deposit_environment, " ", "Country: ", cmmi_americas$country)) |> leaflet::addProviderTiles(provider = "Esri.WorldImagery") ```